unit NuevoTipoComponente;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseMantenimiento, XPMan, StdCtrls, Buttons, Grids, DBGrids,
  ComCtrls, ExtCtrls, ToolWin;

type
  TfrmBaseMantenimiento1 = class(TfrmBaseMantenimiento)
    btnNuevo: TButton;
    procedure btnAceptarClick(Sender: TObject);
    procedure btnCancelarClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBaseMantenimiento1: TfrmBaseMantenimiento1;

implementation

uses Datos;

{$R *.dfm}

procedure TfrmBaseMantenimiento1.btnAceptarClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfrmBaseMantenimiento1.btnCancelarClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfrmBaseMantenimiento1.FormShow(Sender: TObject);
begin
  inherited;
  Label3.Caption:='Tipo de Componente:';
  frmDatos.tblTipoComponente.Active:=true;
  DBGrid1.DataSource:=frmDatos.dsTipoComponente;
  frmDatos.tblProvincia.IndexFieldNames:='cod_tipo_componente';

  btnGuardar.Visible:=False;
  btnCancelar.Visible:=False;
end;

end.
